10040 TI$="000000":G=A-1:FORX=A-1TO1STEP-1
10050 F=0:FORY=1TOG
10060 IFA$(Y)<=A$(Y+1)THEN10080
10070 F=Y:SYS49152(A$(Y),A$(Y+1))
10080 NEXTY
10090 G=F:IFF=0THEN50000
10100 NEXTX